;legge la versione e revisione della reqtools.library
(set vernum (getversion "libs:reqtools.library"))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536) ) )
(if (or (and (= ver 38) (< rev 1210)) (< ver 38))
(
(if(= ver 0)
(
(set sc (askchoice(prompt "ChimiCad necessita della Reqtools.library almeno nella Versione 38.1210, tale libreria non è presente nel sistema, senza la sua aggiunta il programma non può funzionare."
" Per default sarà inserita in LIBS:, volendo puoi usare qualsiasi directory che faccia parte del PATH di ricerca delle librerie.")
(help "Se hai una directory in cui copi le librerie non distribuite col sistema operativo indicala nel requester successivo.")
(choices "Installa in LIBS:" "Scegli una directory" "Non installare")
(default 0)
)
)
(select sc
(
(copyfiles
(prompt "Sto copiando le librerie.")
(help @copyfiles-help)
(source "access/libs")
(dest ("libs:"))
(all)
)
(message("Libreria richiesta copiata nel sistema nella attuale device LIBS:"))
)
(
(set dedi
(askdir(prompt "Scegli una directory in cui il sistema ricerca le librerie")
(help"aiuto")
(default "sys:")
)
)
(copyfiles
(prompt "Sto copiando le librerie.")
(help @copyfiles-help)
(source "access/libs")
(dest (dedi))
(all)
)
)
(
(abort("Hai deciso di non installare la libreria...il programma non funzionerebbe, quindi l' installazione verrà abbandonata. "))
)
)
)
(
(set sc (askchoice (prompt "Chimicad necessita della Reqtools.library almeno in versione 38.1210. ")
(help "Aggiornando sostituirai alla vecchia versione di Reqtools.library la nuova.")
(choices "Aggiornare" "Non Aggiornare")
(default 0)
)
)
(if (= sc 0)
(
(copyfiles
(prompt "Sto copiando le librerie.")
(help @copyfiles-help)
(source "access/libs")
(dest ("libs:"))
(all)
)
(message("Libreria richiesta copiata nel sistema nella attuale device LIBS:"))
)
(message("Hai deciso di non aggiornare la libreria...il programma potrebbe non funzionere correttamente, comunque porto a termine l' installazzione. "))
)
)
)
)
(message("La libreria richiesta è già presente nel sistema"))
)
; RICHIESTA DI DOVE INSTALLARE ChimiCad
(set dove (askdir
(prompt "Scelta per installazione directory ChimiCad.")
(default "sys:")
(help
(cat "Si sceglie da qui in quale directory inserire i files di ChimiCad. "
"Tali files saranno contenuti in una directory chiamata CHIMICAD, "
"che sara` automaticamente creata dal programma di installazione. "
))
))
;Crea directory
(makedir (tackon dove "chimicad")
)
(makedir (tackon dove "chimicad/ACCESSORI")
)
(makedir (tackon dove "chimicad/MANUALI")
)
(makedir (tackon dove "chimicad/ACCESSORI/ROTAZIONI")
)
(makedir (tackon dove "chimicad/ACCESSORI/BANCHI")
)
;Copia dei files
(copyfiles
(prompt "Sto copiando l' icona del cassetto.")
(help @copyfiles-help)
(source "chimicad.info")
(dest dove)
)
(copyfiles
(prompt "Sto copiando l' icona del cassetto.")
(help @copyfiles-help)
(source "chimicad.info")
(dest (tackon dove "chimicad"))
(newname "MANUALI.info")
)
(copyfiles
(prompt "Sto copiando il programma.")
(help @copyfiles-help)
(source "prog")
(dest (tackon dove "chimicad"))
(all)
)
(copyfiles
(prompt "Sto copiando la documentazione.")
(help @copyfiles-help)
(source "doc/italiano")
(dest (tackon dove "chimicad/manuali"))
(all)
)
(copyfiles
(prompt "Sto copiando l'interfaccia.")
(help @copyfiles-help)
(source "access/interfaccia")
(dest (tackon dove "chimicad/ACCESSORI"))
)
(copyfiles
(prompt "Sto copiando i settings.")
(help @copyfiles-help)
(source "access/chimicad.settings")
(dest (tackon dove "chimicad/ACCESSORI"))
)
(copyfiles
(prompt "Sto copiando il catalog.")
(help @copyfiles-help)
(source "access/cat/chimicad.catalog.i")
(dest "locale:catalogs/italiano")
(newname "chimicad.catalog")
)
(copyfiles
(prompt "Sto copiando gli shapes.")
(help @copyfiles-help)
(source "access/shapes.shp")
(dest (tackon dove "chimicad/ACCESSORI"))
)
(copyfiles
(prompt "Sto copiando le rotazioni.")
(help @copyfiles-help)
(source "access/rotazioni")
(dest (tackon dove "chimicad/ACCESSORI/ROTAZIONI"))
(all)
)
(set sc (askchoice (prompt "Chimicad necessita del font Greeksymbols in vari formati. "
"Questi files verranno aggiunti al device FONTS: attualmente attivo in questo sistema. "
" Se non installati il programma potrebbe malfunzionare.")
(help "Se non si vogliono installare i fonts occorre modificare il file "
"Chimicad.settings, sostituendo il font Greeksymbols.font con uno qualunque "
"presente nel proprio sistema. Tale font sarà richiamabile tramite il tasto F4 (font speciale).")
(choices "Installare fonts" "Non Installare")
(default 0)
)
)
(if (= sc 0)
(
(copyfiles
(prompt "Sto copiando greeksymbols.")
(help @copyfiles-help)
(source "access/fonts")
(dest "fonts:")
(all)
)
(message ("Sono stati installati i fonts dell' archivio ChimiCad nell' attuale device FONTS: "))
)
(message ("Non si sono installati i fonts, il sistema potrebbe malfunzionare. Modificare il file ChimiCad.settings sostituendo al font Symbol.font uno qualunque presente nel proprio sistema."))
)
(copyfiles
(prompt "Sto copiando i banchi pennelli.")
(help @copyfiles-help)
(source "access/BANCHI")
(dest (tackon dove "chimicad/ACCESSORI/BANCHI"))
(all)
)
(set ekf(exists("access/chimicad.key")))
(if (= ekf 1)
(copyfiles
(prompt "Sto copiando il key file.")
(help @copyfiles-help)
(source "access/chimicad.key")
(dest (tackon dove "chimicad/ACCESSORI"))
)
(message("Versione di Valutazione, key file non fornito."))
